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I. INTRODUCTION 



Inventory management of classified material is of 
vital importance to the armed forces of the United 
States. There has been an increasing threat to military 
secrets, which prompted considerable changes in the 
area of inventory management of classified material. 
Much of this increase can be attributed to the growing 
complexity of intelligence gathering activities of 
foreign nations; however, this thesis will examine only 
the problem as it relates to inventory management of 
classified publications held by ships in the U.S. Navy. 
For a commanding officer of a ship, it is imperative 
that inventories of classified material be performed 
accurately and effectively. To achieve this goal, the 
ship’s security manager needs a modern database 
management system that will provide an accurate 
Inventory listing and quick access to information when 
required . 

A modern database management system permits greater 
flexibility in meeting information requirements, faster 
response time, better data security, and easier access 
to stored information than earlier software systems 
although at a greater cost. However, these benefits 
(along with greater accuracy and increase productivity) 
strongly justify the necessary large capital and 
manpower investments. Perhaps the most exciting 
development of such systems is the number of available, 
easy to use query-type languages which permit novice 
users to create, update, maintain, and extract 
information from their own files. 

During the database development process, users’ 
requirements are translated into system requirements 
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using application programs or the Database Management 
System (DBMS) itself. The normal form concepts of 
relational database models are applied to develop a 
database for the Inventory management of classified 
material to be used onboard Naval ships. 

This thesis focuses on a database application for 
maintaning inventories for the Secret custodian. While 
this application could be used by both Top Secret and 
Secret custodians, it is the Intention of this thesis 
to concentrate on the Secret custodian’s inventories 
system needs. The Relational Model was applied to 
design this Inventory database system. 
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I I . BACKGROUND 



A. PROBLEM DESCRIPTION AND ORGANIZATION 

As a result of the well publicized spy trial of 
former Radioman Senior Chief Whitworth in 1984, the 
Navy launched a more extensive campaign to improve 
accountability of classified materials. Stringent 
standard procedures are published in the Chief of Naval 
Operations Instruction 5510.1, Fleet and Type 
Commanders directives. This guidance is incorporated 
into a ship’s own instructions. While these voluminous 
instructions attempt to cover all contingencies, the 
problem encountered by the security managers onboard 
ships was one of trying to manage a large body of 
information with very little assistance in the area of 
inventory management . 

One officer is normally assigned as security 
manager on each Navy ship. One of his many duties is to 
ensure that all classified materials onboard are 
properly accounted for. The security manager normally 
controls any access to Top Secret publications. In 
order to minimize this access, the security manager 
physically must conduct inventories and control access. 

The immediate assistant to the security manager 
with regards to inventory management of classified 
material is the Secret custodian. As the title implies 
the Secret custodian is responsible for all Secret and 
Confidential materials held onboard ship. The Secret 
custodian is normally a Junior officer with little or 
no experience in the management of classified material. 

There are three distinct groups of publications: 
"Naval Warface and Allied Tactical", "Intelligence", 
and "Secret" which contains all Secret materials not 
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relating to the first or second group. To properly 
manage these Inventories, the secret custodian is 
assisted by three enlisted personnel as sub-custodians. 
The task of the sub-custodians is to help the secret 
custodian maintain an accurate inventory of the 
publications and make required updates whenever 
necessary. The sub-custodians are assigned lockers 
(safes), for which he or she is responsible. Each 
locker (safe) contains Secret and Confidential 
materials, mostly in binded publications and micro- 
fiche. Files of Secret messages and notes that belong 
to the commanding officer and other officers from the 
unit are also kept in the locker. The Navy has not 
adopted a standard format for inventorying these 
classified materials at this time, which leads to 
disorganization and resultant difficulties in 
determining current inventory in a timely manner . 

Although the task of the secret custodian is 
considered very important and of high military 
interest, it is but a collateral duty which usually 
takes second place to primary duties. Publication 
updates and deletions are typically put off until there 
is a slowdown in the operations tempo. This is 
acceptable for the most part; however, this potential 
lack of immediate attention could cause a loss or 
misplacement of classified material and result in 
damage to the Navy’s mission and at least a loss of 
face to the men Involved. 

The problem is critical both in large and small 
ships. In the first case, there are a large number of 
publications based on ship type. For example, a carrier 
will have an enormous amount of classified publications 
to account for and may have numerous sub-custodians. In 
the second case, the limited number of people that 
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serve on the ship makes the assignment of additional 
duties much more difficult. 

B. GENERAL OVERVIEW OF A DATABASE SYSTEM 

1 . Introduction 

It was not until the late 1950s that computers 
were successfully used for data management. These 
computers were able to process data quickly and in 
great quantities; however, these computers were still 
unsophisticated (limited storage, manipulation, and 
retrieval capabilities). In the middle 1960s, computer 
architecture was radically changed. A large increase in 
the size of computer memory and the introduction of 
operating systems made multi-programming possible, 
which means two or more Jobs can be done concurrently. 

Along with multi-programming came the capacity 
to do on-line or single transaction processing. Rather 
than process large volumes of data sequentially, it has 
become economically feasible to access specific 
information from the computer. By the late 1960s, more 
sophisticated methods of storing and retrieving data 
were incorporated into computer software that gave 
birth to database management as we know it today. 

2 . Architecture of a Relational Database 

Relational database software organizes data 

into simple tables called relations. Such software 
allows users to create reports by drawing data from 
multiple tables. This provides a simplicity and 
flexibility of use not easily obtained in non- 
relational database systems. 

The concept of relational database was first 
publicly proposed by Dr. E. F. Codd in a paper entitled 
" A Relational Model of Data for Large Shared Data 
Banks" [Ref. 1]. Codd suggested a theoretical method 
for representing data based concepts developed in the 
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field of relational mathematics. Until the early 1980s 
the ideas were only of theoretical interest. Now there 
are several database management systems available for 
microcomputers based on these relational concepts. Some 
of these include dBASE III, dBASE III PLUS, R:Base, 
Knowledge Man, Ingres, and ORACLE. 

Relational database principles are based on 
relational theory in mathematics. Many of the terms 
used in relational database management software are 
used in relational mathematics. For example, a two- 
dimensional table is called a relation, where one 
dimension is called a row and the other a column. 

In a relational database, each row is called a 
tuple. A tuple contains data items or entitles. The 
more familiar term for a tuple in data processing is a 
record. In a relational database, a collection of 
related tuples or records is called a file. Figure 2.1 
Illustrates a portion of a relation called SAILOR that 
might be found in the database of a Naval Facility. 

Columns in a relation are called attributes 
which contain data describing the relations. In Figure 
2.1 the attributes are NAME, SSN, DEPT, AGE, and PRD 
(rotation date). Because there are five attributes in 
each tuple, they are called five-tuples. A relation 
that contains five attributes is called a relation of 
degree five. A relation that has six columns, or six 
attributes, is said to be of degree six, one with seven 
attributes, degree seven, and so on. 

The relation in Figure 2.1 is also referred to 
as a flat file. A flat file is called flat because it 
has only two dimensions (rows and columns). Also, a 
flat file has no repeating groups or fields. Each 
record within a flat file has the same number of 
fields, even if some of them are blank. 
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All files within a relational database must be 
flat files. In data processing terminology, this means 
that all records within one file must have the same 
number of fields, even though some of the fields may be 
blank for some records. It also means that any file 
within a relational database can be visualized as a 
table with a fixed number of columns. Each column is a 



NAME SSN DEPT AGE PRD 



Adams 


111-11-2111 


04 


22 


8/86 


Brown 


987-65-4321 


05 


30 


9/87 


Carson 


222-11-7687 


05 


32 


6/86 


Carson 


128-55-8765 


05 


30 


9/87 


Davis 


229-77-0090 


03 


19 


10/87 


Forbes 


556-33-7654 


04 


21 


9/86 


Kelley 


112-87-1765 


06 


20 


8/86 


Lee 


565-08-761 1 


06 


25 


9/87 


Pinoy 


573-12-1187 


04 


27 


11/87 


Roberts 


126-28-7653 


06 


18 


12/87 



Figure 2.1 A Sailor Relation. 

fixed number of columns. Each column is a field 
containing data that either uniquely identifies the 
record or describes the record. If the data uniquely 
identify the record, then that attribute is the key. 
For example, in Figure 2.1, SSN is the key and NAME, 
DEPT, AGE, and PRD are all attributes that describe a 
particular sailor. 



13 



3 . Logical vs Physical Models of Databases 

In relational database design a major 
distinction is made between the logical model and 
physical model. A logical model is an abstract 
representation of the entitles In the database and the 
relationships between those entities. Figure 2.2 
Illustrates a logical model of sailors assigned In 
divisions of departments. The entitles are shown as 
boxes and the relationships as a diamond. The entitles 
are called SAILOR and DIVISION and stand for sailors 
and divisions of the departments. Records would be kept 
regarding each sailor and each division of a 
department. SAILOR/DIVISION represents the relation we 
would describe as: A sailor is assigned to a division 
within a department. Records will be kept regarding the 
sailors assigned to a division. 




Figure 2.2 Logical Model. 



The next stage of the database design is 
the construction of the physical model. A physical 
model is the description of the database in terms of a 
specific database. Figure 2.3 is a physical model of 
the logical model in Figure 2.2. 

A logical model is made without concern for 
the particular structure or restriction of the database 
management software or computer hardware that will 
process the database. A physical model must be designed 
to work within the constraints of the particular 
hardware and software used, such as amount of storage 
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naming conventions, 



and 



available, maximum file 
available commands [Ref. 



size 



2 ]. 



DATABASE USS SHIPS 






RELATION 


SAILOR 






01 


NAME 


c 


25 


02 


SSN 


c 


7 


RELATION 


DIVISION 






01 


NAME 


c 


25 


02 


POSITION 


c 


20 


03 


WORKSTATION 


c 


20 


RELATION 


SAILOR/DIVISION 






01 


SSN 


N 


7 


02 


NAME 


C 


25 



Figure 2.3 



Physical 



Model . 
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III. SYSTEM ANALYSIS 



A. INTRODUCTION 

System analysis is the process of gathering, 
interpreting, and using facts to improve an existing 
system through better procedures and techniques. In 
other words, analysis specifies what the system must do 
and should do. 

The first step of the analysis phase is a system 
study which includes the accumulation of Information 
relating to the existing system’s capabilities and 
deficiencies. This information may lead to a need for 
new system development or a major improvement to an 
existing system. 

According to J. A. Senn [Ref. 3] the reasons for a 
project initiation are: 

a. Greater processing speed 

b. Better accuracy and improved consistency 

c. Faster information retrieval 

d. Reduced cost 

e. Better security 



In gener 


al , 


all of 


the 


above 


reasons 


should 


be 


satisfied by 


the 


new system; 


however , 


it is 


for 


the 


organization 


to 


decide 


if 


the new 


system 


start 


i s 


necessary or 


required . 













B. DESCRIPTION OF THE CURRENT SYSTEM 

The present system on most ships is graphically 
described in Figure 3.1 using a Yourdon’s data flow 
diagram. The circle in the diagram represents the 
process being done at the time. An arrow represents the 
flow of the data, information, or materials. The two 
parallel lines represent a data bank or database. 
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SOURCE 




Figure 3 



1 Present System on Most Ships. 
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The mail which contains classified material is 
delivered to the ship by registered mail. The ship’s 
yeoman receives, signs, and distribute the mail to the 
appropriate personnel. In the case of Secret and 
Confidential materials, the secret custodian will 
receive and sign for custody. The secret custodian then 
sorts and forwards the publications (registered mail) 
to the proper sub-custodians. The sub-custodians check 
the publications for accuracy, completeness, and 
include changes whenever necessary. Each publication 
will be logged and included in the inventory of the 
sub-custodian’s safe. Publications are kept and 
organized by document type. Updates and deletions are 
not reflected until update listings are available. The 
publication listings are manually typed and reports are 
not often available when required. 

The sub-custodians are responsible for the physical 
safety of the publications that are under their 
controls. Updates and deletions are manually made and 
indicated on the publications. Publications earmarked 
for destruction are normally grouped with the rest of 
the expired publications for future shredding and 
incineration . 

Each sub-custodian is required to have a current 
listing of his safe’s inventory. An accurate inventory 
listing is normally required semi-annually by the 
security manager for the purpose of reporting status to 
the executive officer and commanding officer. Inventory 
listings are also required during security inspections, 
training inspections, and normal operational 
deployments . 

C. PROPOSED IMPROVEMENT OVER THE CURRENT SYSTEM 

The proposed system is graphically described in 
Figure 3.2. The yeoman’s Job in process 1 will still be 
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the same; however, the secret custodian will have only 
one sub-custodian for all the lockers (safes). Each 
piece of classified material will be assigned a control 
number by the secret custodian. Control numbers will be 
used to uniquely identify each publication or 
classified materials belonging to the secret custodian. 
The sub-custodian will do the data entry and all the 
previously described tasks currently performed 
manually. 




Figure 3.2 Proposed System. 
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D. JUSTIFICATION OF A COMPUTERIZED SOLUTION 



The following improvements can be achieved by 
computerized solution or automation: 

a. The processing speed will be much faster and 
eventually simpler. One person should be able to 
perform the whole task effectively. 

b. Improved accuracy in data retrieval can be achieved 
by eliminating the possibility of information or 
data omission. 

c. The retrieval and listing of inventory information 
will be much faster, easier, and real time. 

d. In a military environment, the cost of the manually 
provided functions are not easily estimated. 
Therefore, cost reduction as a requirement cannot 
be considered an improvement to the existing 
system, except in terms of man-hours and the number 
of personnel required to do the Job. On the other 
hand, the monetary cost of installing a micro- 
computer system is considered insignificant since 
the proposed system will be designed to be 
supported by a stand alone micro-computer. 

e. The level of security will be limited to a few 
system traps and program passwords. However, the 
physical security applied to publications will be 
extended to the program software. 

The previously mentioned Improvements lead to the 
decision that this project is a good candidate for a 
new system development. It satisfies the requirements 
for project initiation as stated in the beginning of 
this chapter. 



E. SYSTEM REQUIREMENTS 

System requirements were determined through a 

series of Interviews with users at both sea and shore 
commands. Incorporating users’ and management needs, 
the proposed system must be able to satisfy the 
following requirements so that the previously defined 
improvements can be achieved: 

a. It must be able to store any information about 

classified material inventory currently held by 
Navy ships. Actual storage may be different from 
organizations to organizations; however, 

modi f i cat ions in storage maybe necessary to avoid 
data duplication. 

b. It must be able to provide any stored information 
or combination of stored information upon request. 
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c. It must be easy to use. Personnel with very little 
knowledge about computers should be able to operate 
the system satisfactory. 

d. It must be supportable on a stand alone micro- 
computer. Security of data will be managed 
effectively with a stand alone micro-computer 
system . 

1 . Classes of System Operations 

The system will provide the following four 
classes of operations: 

a. Modification of the Existing Data 

The user of the system should be able to 
insert a new record, to delete an existing one, and to 
modify any record in the supporting system files. 

b. Locker Allocation 

The system should be able to provide 

different types of publication allocation. For example, 
certain types of publication will go on certain 

locker(s) and the location of the locker(s). The 

criteria used for each type of publication allocation 
will be described with the corresponding application 
program . 

c. Production of Reports 

A number of application programs will 

support the function of retrieving necessary 
information about publications from the database and 
producing the appropriate lists and reports. 

d. Assistance Operations 

Although the above operations can satisfy 
the request of the system, an additional function 
related to the tracking of modifications that have been 
done to the supporting system files is necessary. This 
audit history will be contained in file "TRACER" in 
which any modifications of the supported files will be 
recorded with the time, date, and user name. For 
security reasons, this file should not be accessible 
through the main menu or any sub-menu. Also, system 
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access security should be provided at system start-up 
through a password control system. 

A "USERID" file will contain users’ names 
and corresponding passwords. A second "USERLOG" file 
will accumulate the information of all transactions 
done by the user of the system. Neither file will be 
accessible through the menu system. 

2 . Expected Volume of Data 

The volume of data should average approximately 
1600 binded publications, 1000 micro-fiche, 300 binded 
Secret notes and several item of other classified 
material, both in binded publication and loose messages 
received during operations. 

3 . Kinds of Queries to be Answered 

The database would be entered through the main 
menu. The user could select a file for querying or 
updating a specific file. The queries answered through 
the database include the following: 

a. Listing of all publications by locker numbers. 

b. Location of each or a certain publication. 

c. The sub-custodian of this publications. 

d. The update of a certain or many publications. 

e. The total number of Secret and Confidential 
material . 

f. The basic allowance list vs current publication 
available onboard. 

g. The total number of publications in each locker. 

h. The destruction record of the last two years. 

4 . Relative Update and Retrieval 

The database shall be updated monthly or more 
frequently as the custodian feels necessary. The 
database retrieval activities shall be performed 
periodically as follows: 

a. Quarterly for Inventory purposes. 

b. As requested or deemed necessary by the custodian 
or higher authority. 
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Additionally, ad hoc queries shall be performed 
when desired by the security manager and commanding 
officer . 

F. INPUT REQUIREMENT 

The input requirement are the system requirements 
and project plan. These requirements were determined 
through publication instructions, and users’ needs 
through interviews with previous secret custodians and 
staff personnel whose Job involved inventory management 
of classified publications. 

G. OUTPUT REQUIREMENT 

A similar process of acquiring information was 
conducted in formulating output requirements. Output 
requirements may be altered by the next user as they 
apply to the present regulations. 
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IV. RELATIONAL DESIGN 



Logical design is the first major task in the 
design of a database-oriented system. This task will be 
to define the database structure, which is a two-phased 
process. First, the logical structure of the database 
is developed; second, the physical design of the 
database structure is developed. 

A. MODELING 

The essence of database design is the 
representation of record relationships . The 

relationships can be specified using a data structure 
diagram (DSD), commonly called a Bachmann diagram. The 
relationships are identified intuitively. Design was 
conducted on the potential relationships among records 
that have been defined for the system. 

1 . Record Structure 

In order to satisfy the user’s requirements, a 
number of records were derived from a publication 
listing held by the secret custodian. Because of 
military security, bogus data and other information 
were entered to the record model instead of real data. 
From the information in the publication record, a 
relation model of the system was built. In this thesis, 
the following records were generated: 
a. PUBS ( Ctrl No , S_Tltle, Locker, Class, Update, 
Sub_Cust ) 

Ctrl_No: control number 
S_Tltle; short title 
Locker: locker number 

Class: classification 
Update: last update done 
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Sub Cust: sub-custodian 



b. PUBSINFO ( S Title . L_Title, Allowance, 

Onboard, Doc_Type ) 

S_Tltle: short title 

L_Tltle: long title 

Allowance: allowance for ship 
Onboard: onboard publications 
Doc_Type: document type 

c. DESTRUCT ( Ctrl No , S_Title, D_Destruct) 

Ctrl_No: control number 

S_Title: Short title 
D_Destruct: date of destruction 

d. USERID ( Name , Password) 

Name: name of user 
Password: password of user 

e. USERLOG ( Logdate , Logtime , Name, Task, 

Progname ) 

Logdate: logged date 

Logtime: logged time 

Name : name of user 

Task: task performed 

Progname: program names accessed 

Underlined field(s) in the record are the key. 
Precise information about each field is in the Data 
Dictionary in Section B of this chapter. 

2 . Record Relationship Diagram 

DSD was used for the representation of record 
relationships. Each relation described in the above 
section and Figure 4.1 is in third normal form ( 3NF ) . 
This means that each tuple or record of each relation 
consists of a primary key value that Identifies some 
entity, together with a set of mutually independent 
values that described the record in some way. For 
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consists of a primary key value that Identifies some 
entity, together with a set of mutually Independent 
values that described the record In some way. For 
example, the key In the PUBSINFO relation describe a 
unique tuple within that relation. The single or double 
arrow notation Is used to express relationship between 
records (one-to-one, and many-to-many relationships) 
shown In Figure 4.1. 





Figure 4.1 Data Structure Diagram (DSD). 
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B. DATA DICTIONARY 



The data dictionary is the collection of correct 
information about the words and terms used by the 
organization in order to describe its data. The term 
data dictionary is used to indicate a set of files or a 
database. The data dictionary for this thesis is: 

Field Name: Ctrl_No 
Format: character 
Width: 5 

Allowable value: less than 50,000 
Description: Numeric, character plus numeric 

Field Name: S_Title 
Format: character 
Width: 20 

Allowable value: short title, originator’s name 
Description: short title of publications 

Field name: L_Tltle 
Format: character 
Width: 40 

Allowable value: long title, subject name 

Description: long title of publications 

Field name: Locker 
Format: character 
Width: 1 

Allowable value: characters, numbers 
Description: locker id (i.e., locker 2) 

Field name: Class 
Format: character 
Width: 9 
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Allowable value: SECRET, CONE, UNCLASS 
Description: publication classification 

Field name: Update 
Format: date 
Width: 8 

Allowable value: MM/DD/YY 
Description: date of last update 

Field name: Sub_Cust 
Format: character 
Width: 12 

Allowable value: last name, initials, rank 

Description: last name and rank of person 

Field name: Allowance 
Format: numeric 
Width: 4 

Allowable value: 0 to 9999 

Description: number of publication required 

Field name: Onboard 
Format: numeric 
Width: 4 

Allowable value: 0 to 9999 

Description: number of publication onboard 

Field name: Doc_Type 
Format: character 

Width: 7 

Allowable value: NTP/ATP, SECRET, INTEL 
Description: publication by document type 

Field name: D_Destruct 
Format: date 
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Width: 8 

Allowable value: MM/DD/YY 
Description: destruction date 



Field name: Name 
Format: character 
Width: 12 

Allowable value: last name and rank 
Description: sub-custodian’s name and rank 

Field name: Password 
Fromat: character 

Width: 8 

Allowable value: numeric, alpha-numeric, characters 
Description: user’s access code 

Field name: Task 
Format: character 
Width: 10 

Allowable value: INSERTION, LIST, and other tasks 

Description: program task performed by each user 

Field name: Progname 
Format: character 
Width: 10 

Allowable value: ADD_PUBS , and other program names 
Description: program names in this thesis 

Field name: Logdate 
Format: date 
Width: 8 

Allowable value: MM/DD/YY 

Description: date when the task was performed 



Field name: Logtime 



29 



Format: Character 
Width: 5 

Allowable value: HR:MN 

Description: time when the task was performed 
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V. 



IMPLEMENTATION 



A. INTRODUCTION 

The introduction of a database as the central 
reservoir of data changes the organization’s attitude 
with regard to data requirements and its management. 
This creates new skills to be learned and a need for a 
good implementation scheme. In this chapter, the issues 
of shipboard implementation and database administration 
are discuss. 

B. SHIPBOARD IMPLEMENTATION 

The implementation of a new system or a change in 
the old ways of doing things in an organization usually 
receives resistance and skepticism from the personnel 
involved; however, the security manager onboard a ship 
can easily overcome these problems due to the 
relatively small size of his department. The security 
manager and secret custodian must be aware of these 
Implementation problems in order to correct problems as 
they arise. 

Security consideration with regard to the TEMPEST 
requirements must be checked periodically. Although 
TEMPEST requirements do not apply to the application 
program in its present form, the security manager must 
keep abreast with any change in requirements. Quarterly 
training must be conducted in house for all users. A 
duplicate copy of database files (such as PUBS. DBF, 
PUBSINFO.DBF , and DESTRUCT . DBF ) must be retrieved 
weekly for data accuracy and auditing. Program and 
backup disks must be stored in the safe for better 
security . 
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Finally, shipboard Implemtat Ion must be planned and 
monitored in order to make immediate changes when 
necessary. The users (sub-custodians) must be capable 
of learning the basic knowledge on how to use the 
proposed software program and the application program 
in this thesis. 

1 . Software Requirement for System Implementation 
The dBASE III PLUS, which will be used for the 

implementation of the publication inventory system 
under discussion, is a relational DBMS for micro- 
computers. It contains its own extremely powerful 
programming language which permits the user to easily 
create his own application programs regardless of 
complexity . 

2 . Hardware Requirement for System Implementation 
The system can operate on a 16-blt 

microcomputer that uses MS DOS, PC DOS version 2.0, or 
a newer version. For example, it could be an IBM PC, or 
an IBM PC/XT/AT or any other 16-blt microcomputer fully 
compatible with one of the above mentioned micro- 
computers . 

256K of random access memory (RAM) is the 
minimum requirement of the supporting database package. 
The best configuration is one disk drive and one hard 
drive disk. A lOM (megabytes) hard disk is recommended 
because it is the most common. Inexpensive, and 
reasonable configuration of a microcomputer. Although a 
hard disk is not required (because all files and 
application programs can be stored on a floppy disk 
based system), a hard disk will greatly improve the 
execution time of the programs used in this 
application. Any 80 column printer able to Interface 
with the above mentioned microcomputers can be used. 
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C. DATABASE ADMINISTRATION 

To facilitate effective use of the database, most 
organizations have staffed a position (and office) of 
database administration (DBA). This person is 
responsible for protecting the database while at the 
same time maximizing benefits to users [Ref. 4]. 

The secret custodian should be assigned as DBA. The 
DBA will be responsible for the accuracy, consistency, 
and timeliness of the data file. This function will 
require the secret custodian to provide database 
standards and enforce data activity policy. Therefore, 
the secret custodian must educate himself in order to 
effectively manage the database resources. 
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VI. SAMPLE PROGRAM PROCESSING 



The proposed inventory management system is a menu 
driven program organized along functional lines. Each 
major function in the system corresponds to a section 
of this chapter and selection from the main menu. This 
chapter will incorporate the instruction on how to run 
the system; thus, it will serve as a substitute for the 
user ’ s manual . 

There is also a section in this chapter that 
discusses MAINPROG (or main program menu). It is 
important to read this section before starting to use 
the Inventory management system since it describes in 
detail how to include the user’s name in the access 
list of the program. 

This manual is tailored to users with some 
knowledge in microcomputers. The steps to start the 
system are as follows; 

a. Copy the two dBASE III PLUS diskettes the hard disk 
and insert the original third disk in the "A" 
drive . 

b. At "C>" type "bdase" (no quotes needed) and then 
strike the return key. Once the system is loaded 
strike the return key once more. This will take you 
to the "assist" mode. You must get out of the 
assist mode by pressing the "esc" key. The "." (dot 
prompt) will appear on the screen. Type " set defa 
to a" (no quotes needed) and then hit the return 
key. Now you are ready to use the system. 

c. At this point, type "do mainprog" followed by 
carriage return. A U.S. flag will appear 
momentarily then a brief greeting by the system. 



MAINPROG of this 

d. Follow the command messages which appear on the 
screen. The various options of the main function of 
the system are listed in the main menu. Select the 
number and follow the command message on the 
screen . 



The system will 
identification 



The system w 
Ident 1 f icat 1 




own user’s 
see section 
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A. MAINPROG 

The MAINPROG program has two functions: first, it 

will ask the user for his own access code or password. 
Once the user has succesfully logged into the system, a 
history of the user’s session will be kept in the 
"USERLOG" file. To enter an authorized user: 

a. "assist” at the "."(dot prompt) of bBASE III 



b. Select the "Set Database file" 

c. Select "a" drive, then select USERID. DBF 

d. Select "Update", then select append 

e. Enter the username and password 

f. Save the new Information (Ctrl-End) 

g. Do step 1 to 3 and USERLOG. DBF 

h) Do step 4. Enter username and save 

Second, the main program will prompt the user with 
a straightforward menu driven selection process. The 
selection process does not require further information 
from the user. 

The MAINPROG program presents the main menu on the 
screen( Figure 6.1). There are a total of six options. 
The user must refer to the respective section of this 
chapter for further information about the option in the 
menu . 



: MAIN MENU : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

: 1. HELP : 

: 2. UPDATE DATABASE : 

: 3. REPORT GENERATOR : 

: 4. ADHOC REQUEST : 

: 5. END OF DATABASE : 

6. EXIT TO DOS : 



: ENTER CHOICE (1-6) =>: : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 



Figure 6.1 Main Menu. 
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B. HELP 



The help function allows the user to have on-line 
assitance while running the program. This help menu 
(Figure 6.2) will only be accessible from the main 
menu . 



: HELP MENU : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

: 1. UPDATE DATABASE : 

: 2. REPORT GENERATOR : 

: 3. ADHOC REQUEST : 

: 4. EXIT TO MAIN MENU : 

: ENTER CHOICE =>: : 



Figure 6.2 Help Menu. 



C . UPDATE DATABASE 

The update database function allows the user to 
add, edit, and delete any files in the menu provided in 
Figure 6.3. It is very important for the user to be 
exact with the Information entered in the database 
because a mistake could have far-reaching implications 
to the validity of the data in the database. 



• • 

: UPDATE DATABASE MENU : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

: 1. INSERT RECORDS INTO PUBS FILE : 

: 2. INSERT RECORDS INTO PUBSINFO FILE 

: 3. INSERT RECORDS INTO DESTRUCT FILE : 

: 4. MODIFY RECORD FROM PUBS FILE : 

: 5. MODIFY RECORD FROM PUBSINFO FILE : 

; 6. DELETE RECORDS PUBS & PUBSINFO FILES : 

; 7. EXIT TO MAIN MENU : 

: ENTER CHOICE =>: : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 



Figure 6.3 Update Database Menu 



36 



1 



Select Option ”1" to Insert Pubs Record 



This allows the user to Insert a new 
publication in the PUBS. DBF file. The user must be very 
careful when inserting the information into database. A 
control number must be provided by the user. The system 
will search for any duplication of control number in 
the database and will not allow the user to duplicate 
this number. Figure 6.4 shows the initial screen that 
will appear after the option 1 was selected. 

: ADD NEW RECORD TO PUBS FILE : 

: WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW : 

: ENTER CONTROL NUMBER => 99999 : 

wwwvrwwvrwwwwwwwwwwwvrwwwwwwwwwwwwwwwwwwwwwwwwwww 

Figure 6.4 Query to Insert Pubs Record. 

D. REPORT GENERATOR 

The report function allows the user to obtain 
detail information about the inventory level of the all 
the publications. The user can access this section 
through the main menu. Figure 6.5 shows the "Database 
Report Generator Menu" . 

• • 

: DATABASE REPORT GENERATOR MENU : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

: 1. ALLOWANCE LISTING OF PUBLICATION ; 

: 2. ALPHABETICAL LISTING OF PUBLICATION : 

: 3. LIST OF PUBLICATIONS BY LOCATION : 

: 4. LIST OF PUBLICATIONS BY CLASSIFICATION: 

: 5. LIST OF DESTRUCTION RECORDS : 

: 6. EXIT TO MAIN MAIN MENU : 

: ENTER CHOICE =>: : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

Figure 6.5 Database Report Generator Menu. 
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1 . Select Option 1 to Get Allowance Llstln/y 

This section provides a list of publications 
sorted by document type with the corresponding 
allowance versus onboard listing. The output Is shown 
below (Figure 6.6). 

Page No. 1 
09/24/87 

USS BATTLESHIP REPORT 
SORTED BY DOCUMENT TYPE 



SHORT TITLE ALLOWANCE ONBOARD 



OPNAVINST 1120.1 G 1 i 

SURFACINST2210 2 2 

Total ••• 

3 3 

Figure 6.6 List of Publication Sorted by Document Type. 
E. ADHOC REQUEST 

The adhoc function allows the users to do special 
query on a specific publication. Although not all of 
the possible queries were provided, the user will be 
able to do basic Inquiries from this menu. Figure 6.7 
shows the available selection from the "Database Adhoc 
Menu " . 



wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

DATABASE ADHOC MENU : 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

1. LOCATION OF SPECIFIC PUBLICATION 

2. SUB-CUSTODIAN OF A PUBLICATION 

3. ALLOWANCE OF SPECIFIC PUBLICATION 

4. CLASSIFICATION OF SPECIFIC PUBLICATION 

5. LAST UPDATE OF CERTAIN PUBLICATION 

ENTER CHOICE ->: 
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 



Figure 6.7 Database Adhoc Menu. 
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VII. CONCLUSION 



The purpose of this study was to develop a database 
system model suitable for Implementation onboard Naval 
ships, and to aid In the Inventory management of 
classified material In this environment. 

The developed system must be considered a prototype 
model which may need further modification and extension 
In order to fit a specific user’s need. Although the 
system must be considered a prototype In Its present 
form, the application program will perform all the 
basic jobs of the sub-custodian with regard to 
Inventory management. 

Since dBASE III PLUS was used In the application 
program of this thesis, a relational database must be 
used. A brief discussion of relational database model 
was reviewed In Chapter II, In order to give the user 
basic knowledge of the model. 

The system Is menu driven. Therefore, It Is not 
only easy to use but also easy to modify, since both 
the user and programmer are directed to the desired 
point through the sequence of menus and sub-menus. 

Finally, It Is up to the security manager and 
secret custodian to monitor the effectiveness of this 
application program during the Initial implementation 
stage and throughout Its life cycle. 
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APPENDIX A 

PROGRAM STRUCTURE CHART 
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APPENDIX B 



PROGRAM 



A. MAIN PROGRAM 



HMHMMHMHMHMMMMHMHMMMM PROGRAM MAINPROG MHMHHMHMHHHHHHHH 

** This is the main program, which controls the operation of 
** the entire database system. 

CLEAR 

** Initialization of the basic dBASE III functions 

SET TALK OFF 
SET BELL OFF 
SET DELIMITER OFF 
SET HEADING OFF 
SET EXACT ON 

** declare global variables 
PUBLIC psw 

STORE ’ ’ TO psw 



@ 


5 ,18 


SAY 


’ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ’ 


@ 


6 , 18 


SAY 


9 i 


: Security Manager dBASE Program : ’ 


@ 


7 , 18 


SAY 


’ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ’ 


@ 


8,18 


SAY 


> 




@ 


9,18 


SAY 


f 




@ 


10 , 18 


SAY 


f 


Please enter your : ’ 


@ 


11 , 18 


SAY 


9 




@ 


12 , 18 


SAY 


f 


^ it • 9 


@ 


13 , 18 


SAY 






Check 


user 


> < 


3 authorization 


@ 


12,28 


SAY 


’PASSWORD ->’ 






SET 


CONSOLE OFF 






ACCEPT TO psw 






SET 


CONSOLE ON 



USE userid 

LOCATE FOR password = UPPER (psw) 



*♦ Unauthorized user. Exit to dBASE operating system. 
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IF EOF ( ) 

SET COLOR TO W** 

@ 12,28 SAY ’ UNAUTHORIZED USER ’ 

DO delay 
SET COLOR TO W 
QUIT 
END IF 

Authorized user 

STORE 'Y' TO main 
DO flag 
DO delay 
DO headings 

DO WHILE UPPER (main) = ’Y' 

DO mmenu 

** Perform appropriate function depending on user’ 
DO CASE 

CASE selection = 1 
DO dbhelp 

CASE selection = 2 
DO update 

CASE selection = 3 
DO report 

CASE selection = 4 
DO adhoc 

CASE selection = 5 

STORE ’N’ TO main 
CASE selection = 6 
CLEAR 
QUIT 

ENDCASE 

ENDDO 

SET TALK ON 
SET DELIMITER ON 
SET EXACT OFF 
SET HEADING ON 
SET BELL ON 
CLEAR ALL 
RETURN 

*♦ eof mainprog.prg 



choice . 
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1 . Main Menu 



PROGRAM MMENUM HMMMMMHMMMMMMMHMMMHM 
♦♦ This program displays the system Main-Menu on the screen 
CLEAR 

SET TALK OFF 
PUBLIC selection 
STORE 0 TO selection 



@ 


4 ,22 


SAY 




@ 


5 ,22 


SAY 


’ mm 


mm ’ 


@ 


6,22 


SAY 




SET 


COLOR 


TO 


WH 






@ 


5 ,30 


SAY 


’MAIN 


MENU’ 


SET 


COLOR 


; TO 


W 






@ 


7 , 18 


SAY 


^ \rwwwww\rw^^rw\rw\fwww\n^rw\rw\rw\^ * 


@ 


8,18 


SAY 


f « 






9 


@ 


9 , 18 


SAY 


» , 


1 . 


HELP / DOCUMENTATION 


9 


@ 


10 , 18 


SAY 


9 « 


2 . 


UPDATE DATABASE 


9 


@ 


11 , 18 


SAY 


9 « 


3. 


REPORT GENERATOR 


9 


@ 


12 , 18 


SAY 


9 , 


4 . 


ADHOC REQUESTS 


9 


@ 


13 , 18 


SAY 


9 « 


5 . 


END OF DATABASE 


9 


@ 


14 , 18 


SAY 


9 * 


6. 


EXIT TO DOS 


9 


@ 


15 , 18 


SAY 


9 • 






9 


@ 


16 , 18 


SAY 


9 « 






9 


@ 


17 , 18 


SAY 


9 « 






9 


@ 


18,18 


SAY 


* \rww\^rww\^rw\rwww\rwwwww\f^^ ’ 


SET 


COLOR 


; TO 


w+ 






@ 


17,20 


SAY 


’ENTER CHOICE (1-6) =>: ’GET selection; 


PICT '9' 


RANGE 1 


,6 





READ 

SET COLOR TO W 
SET TALK OFF 
CLEAR 
RETURN 

♦♦eof mmenu.prg 
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a. Update Sub -Menu 



PROGRAM UPDTMENU 

♦♦ This program display on the screen the update sub-menu 
CLEAR 

PUBLIC upcode 
STORE 0 TO upcode 

@ 4,18 SAY ’ ^rf\^w\^w\rw\^w\^w^l^w\'^w^dww\rw^/rw\rw^frww^rw^^^w^lrw^/r^^ 

@ 5,18 SAY ’ : : ’ 

@ 6,18 SAY ’ \rw^/rw\f\^w\rw\^w\^w\^w^/rw\^w\^w^frw\^/^w\^w\rw^>^w\rw\rw\^^ 

SET COLOR TO W*^ 

@ 5,30 SAY ’ DATABASE UPDATE MENU’ 

SET COLOR TO W 



@ 


7 , 18 


SAY 




@ 


8,18 


SAY 


f 
















@ 


9 , 18 


SAY 


f 


1 . 


INSERT 


RECORDS 


INTO 


PUBS FILE 






@ 


10,18 


SAY 


f 


2 . 


INSERT 


RECORDS 


INTO 


PUBSINFO 


FILE 




@ 


11 , 18 


SAY 


f 


3. 


INSERT 


RECORDS 


INTO 


DESTRUCT 


FILE 




@ 


12 , 18 


SAY 


f 


4 . 


MODIFY 


RECORDS 


FROM 


PUBS FILE 






@ 


13 , 18 


SAY 


f 


5 . 


MODIFY 


RECORDS 


FROM 


PUBSINFO 


FILE 




@ 


14 , 18 


SAY 


> 


6 . 


DELETE 


RECORDS 


FROM 


PUBS AND 


PUBSINFO FILES 




@ 


15 , 18 


SAY 


9 


7 . 


EXIT TO MAIN MENU 








@ 


16 , 18 


SAY 


9 
















@ 


17 , 18 


SAY 


9 
















@ 


18 , 18 


SAY 


9 
















@ 


19 , 18 


SAY 




SET COLOR TO 


w+ 












@ 


17,30 


SAY 


’ENTER CHOICE = > : ’ GET upcode PICT 


’ 9 ’ RANGE 1 , 7 



READ 



SET COLOR TO W 

CLEAR 

RETURN 

eof updtmenu 



PROGRAM UPDATE 

CLEAR 

SET TALK OFF 

STORE ’ ’ TO updtcont 

PUBLIC upcode 

DO WHILE UPPER(updtcont ) # ’N’ 

DO updtmenu 
DO CASE 

CASE upcode = 1 
DO add_pubs 
CASE upcode = 2 
DO add_info 
CASE upcode = 3 
DO add_dest 
CASE upcode = 4 



44 



DO mod_pubs 
CASE upcode = 5 
DO mod_info 
CASE upcode = 6 
DO del_pub 
CASE upcode = 7 

STORE ’N' TO updtcont 

ENDCASE 

ENDDO 

SET TALK ON 
RETURN 

** eof update, prg 
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( 1 ) Update Programs 



PROGRAM ADD PUBS 

** This program insert records to PUBS file and records logged 
** data into USERLOG file 

CLEAR 

SET TALK OFF 

** open required files for processing 
SELECT 1 

USE PUBS index control 
SELECT 2 
USE USERID 
SELECT 3 



USE USERLOG 








dlspaly a 


window on the screen 


@ 


4 ,20 


SAY 


’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 


@ 


5 ,20 


SAY 


9 




@ 


6 , 20 


SAY 


9 


WWWWWVWWWWW\^rW”WVWWWV”WVW"W"W"W”WTVlV”WVWWWWWWWWWWVWW : 


@ 


7,20 


SAY 


9 




@ 


8 ,20 


SAY 


9 




@ 


9,20 


SAY 


9 




@ 


10 , 20 


SAY 


9 




@ 


11,20 


SAY 


9 




@ 


12,20 


SAY 


9 




@ 


13 , 20 


SAY 


9 




@ 


14 , 20 


SAY 


9 




@ 


15 ,20 


SAY 


9 




@ 


16,20 


SAY 





STORE ’Y’ TO add_cont 

STORE .F. TO done 

DO WHILE UPPER(add_cont ) =’Y’ 

@ 5,30 SAY ’ADD NEW RECORD TO PUBS FILE’ 

** initialize memory variables 



STORE 


9 9 


TO 


tctr l_no 


STORE 


9 


’ TO 


ts_ti t le 


STORE 


9 9 


TO 


t locker 


STORE 


9 9 


TO 


tclass 


STORE 


9 9 


TO 


tupdate 


STORE 


9 


’ TO 


t sub_cust 


@ 15 , 

PICT 

READ 


26 SAY ’ENTER 
’99999 ’ 


CONTROL NUMBER => 


’GET tctrl_no 



** check if record exist in PUBS file 

SELECT 1 

FIND &tctrl no 
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IF EOF ( ) 

*♦ record does not exits in the PUBS file 
read user’s inputs from the keyboard 
CLEAR 



@ 2,00 


TO 


14,79 DOUBLE 






@ 5,20 


SAY 


’ADDING NEW RECORD TO PUBS FILE ’ 


@ 7,20 


SAY 


’ CONTROL NUMBER 


’ GET 


tc tr l_no 


@ 8,20 


SAY 


’ SHORT TITLE 


’ GET 


ts_tl tie 


@ 9,20 


SAY 


’ LOCKER NUMBER 


’ GET 


tlocker 


@ 10,20 


SAY 


’ CLASSIFICATION 


’ GET 


tclass 


@ 11,20 


SAY 


’ SUB-CUSTODIAN 


’ GET 


tsub cust 


@ 12,20 
READ 


SAY 


’ PUB LAST UPDATE 


’ GET 


tupdate PICT ’99/99/99’ 



** append new record to PUBS file 
APPEND BLANK 

REPLACE ctrl_no WITH tctr l_no , s_t 1 tie WITH ts_title 
REPLACE locker WITH tlocker , class WITH tsub_cust 
REPLACE update WITH CTOD ( tupdate ) 

STORE .T. TO done 

♦♦ control number exits in the PUBS file 
ELSE 

SET COLOR TO W»» 

@ 15,21 SAY ’ CONTROL # ALREADY EXIST 

DO delay 
SET COLOR TO W 
END IF 

SET COLOR TO W+ 

@ 15,22 SAY ’ MORE INSERTIONS? (Y/N)==> 

READ 

SET COLOR TO W 
SET CONSOLE OFF 
WAIT TO add_cont 
SET CONSOLE ON 
ENDDO 

»» update USERLOG file 
IF done 
SELECT 2 

LOCATE FOR password =UPPER(psw) 

SELECT 3 
APPEND BLANK 

REPLACE username WITH B->username, task WITH ’INSERTION’ 
REPLACE progname WITH ’ADD PUBS’ 

REPLACE logdate WITH DATE(T, logtime WITH TIME( ) 

END IF 
CLEAR 

CLOSE DATABASES 
RETURN 

** eof inserpub.prg 
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HMHHHHMHHHHHHMHHHHH PROGRAM ADD INFO HHHHHHHHHHHHHHHHHHHHHH 

*♦ This program inserts records to PUBSINFO file and records 
logged data into USERLOG file 

CLEAR 

SET TALK OFF 

** open required files for processing 
SELECT 1 

USE PUBSINFO index ps_title 

SELECT 2 

USE USERID 

SELECT 3 

USE USERLOG 



H 


display a 


window on the screen 


@ 


4 , 10 


SAY 


’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 


@ 


5 ,10 


SAY 


t 




@ 


6 ,10 


SAY 


t 




@ 


7 , 10 


SAY 


9 




@ 


8 ,10 


SAY 


9 




@ 


9 ,10 


SAY 


9 




@ 


10 ,10 


SAY 


9 




@ 


11 ,10 


SAY 


9 




@ 


12 ,10 


SAY 


9 




@ 


13 ,10 


SAY 


9 




@ 


14 ,10 


SAY 


9 




@ 


15 ,10 


SAY 


9 




@ 


16,10 


SAY 





? 

? 



STORE ’Y' TO addlnfo 

STORE .F. TO done 

DO WHILE UPPER (addlnfo) = ’Y’ 

@5,18 SAY ’ADD NEW RECORD TO PUBSINFO FILE’ 

initialize memory variables 



STORE ’ 




’ TO 


ts_ti tie 


STORE ’ 




’ TO 


tl_tl tie 


STORE ’ 


9 


TO 


tal lowance 


STORE ’ 


9 


TO 


tonboard 


STORE ’ 


9 


TO 


tdoc_type 



@ 15,11 SAY ’ SHORT TITLE == > ’ GET ts_tltle 
READ 

** check if record exist in PUBS file 
SELECT 1 
FIND &ts title 
IF EOF (7 

record does not exist in PUBSINFO file 
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** read user’s inputs form keyboard 
CLEAR 



@ 


2 , 00 


TO 


14,79 DOUBLE 






@ 


4,18 


SAY 


’ADDING NEW 


RECORD 


TO PUBSINFO FILE 


@ 


7 , 12 


SAY 


’SHORT TITLE 


: ’ GET 


ts_t i tie 


@ 


8,12 


SAY 


’LONG TITLE: 


’ GET 


tl_ti tie 


@ 


9 , 12 


SAY 


’ALLOWANCE: 


’ GET 


tallowance 


@ 


10 , 12 


SAY 


’ONBOARD: 


’ GET 


tonboard 


@ 


11 , 12 


SAY 


’DOC-TYPE: 


’ GET 


tdoc_type 



READ 



f 



^ append new record to PUBSINFO file 
APPEND BLANK 

REPLACE s_title WITH ts_title, l_title WITH tl_title 
REPLACE allowance WITH VAL( tallowance ) 

REPLACE onboard WITH VAL( tonboard ) 

REPLACE doc_type WITH tdoc_type 
STORE .T. TO done 

“ short title exist in the PUBSINFO file 
ELSE 

@ 15,12 SAY ’ 

SET COLOR TO W»* 

@ 15,12 SAY 'SHORT TITLE ALREADY EXIST’ 

DO delay 

SET COLOR TO W 



END IF 

@ 15,12 SAY ’ INSERT MORE RECORDS? (Y/N)=>’ 

SET CONSOLE OFF 
WAIT TO addinfo 
SET CONSOLE ON 
ENDDO 

update USERLOG file 
IF done 
SELECT 2 

LOCATE FOR password = UPPER(psw) 

SELECT 3 
APPEND BLANK 

REPLACE username WITH B->username, task WITH ’INSERTIONS’ 
REPLACE progname WITH add info, logdate WITH DATE( ) 
REPLACE logtime WITH TIMET) 

END IF 
CLEAR 

CLOSE DATABASES 
RETURN 
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* eof add info 



PROGRAM ADD DEST 



*♦ This program inserts record to DESTRUCT file and update the 
USERLOG file 



CLEAR 

SET TALK OFF 

^ open required files for processing 
SELECT 1 

USE destruct INDEX dcontrol 

SELECT 2 

USE userid 

SELECT 3 

USE userlog 



@ 



display a 
8,20 SAY 
20 
20 
20 
20 
20 
20 
20 
20 



window on the screen 



9. 
10 . 
11 , 
12 , 
13, 
14 . 
@ 15 , 
@ 16 , 
STORE 
STORE 



SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
Y’ TO 
F. TO 



wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 



wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

add_cont 

done 



DO WHILE UPPER(add 
@ 9,23 SAY ’ADD' 



cont ) = ’ Y ’ 
NEW RECORD 



TO DESTRUCT FILE 



** initialize memory variables 

STORE ’ ’ TO tctrl_no 

STORE ’ ’ TO ts_title 

STORE ’ ’ TO td_date 

@ 15,25 SAY ’ENTER CONTROL # = > : ’ GET tctrl_no PICT ’99999’ 

READ 

SELECT 1 

FIND &tctrl_no 

IF E0F( ) 

^ record does not exist in the DESTRUCT file 

** read user’s input 

CLEAR 

@ 09,15 TO 15,60 DOUBLE 

@ 11,23 SAY ’CONTROL NUMBER ;’ GET tctrl_no 
@ 12,23 SAY ’SHORT TITLE : ’ GET ts_title 

@ 13,23 SAY ’DATE DESTROYED :’ GET td_date PICT ’99/99/99’ 
READ 

•♦append new record to DESTRUCT file 
APPEND BLANK 

REPLACE Ctrl no WITH tctrl no, s title WITH ts_title 
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REPLACE d_destruct WITH CTOD( td_date ) 

STORE .T. TO done 

*♦ control number exist in the DESTRUCT file 
ELSE 

SET COLOR TO 

@ 15,25 SAY ’ RECORDS ALREADY EXIST’ 

DO delay 
SET COLOR TO W 
END IF 

SET COLOR TO W+ 

@ 15,25 SAY ’ MORE INSERTIONS? (Y/N)==>: ’ 

READ 

SET COLOR TO W 
SET CONSOLE OFF 
WAIT TO add_cont 
SET CONSOLE ON 
ENDDO 

update USERLOG file 
IF done 
SELECT 2 

LOCATE FOR PASSWORD = UPPER(psw) 

SELECT 3 
APPEND BLANK 

REPLACE username WITH B->username, task WITH ’INSERTION’ 
REPLACE progname WITH ’INS DEST ’ , logdate WITH DATE( ) 
REPLACE logtime WITH TIME T) 

END IF 
CLEAR 

CLOSE DATABASES 
RETURN 

** eof add_dest.prg 



PROGRAM MOD PUB 

This program modifies records in the PUBS file and updates 
USERLOG file 

CLEAR 

SET TALK OFF 

open required the files for processing 
SELECT 1 

USE pubs INDEX control 
SELECT 2 
USE userid 
SELECT 3 
USE userlog 
STORE .F. TO done 
STORE ’Y’ TO modicont 
SELECT 1 

DO WHILE UPPER( modi cont ) = ’Y’ 

STORE ’ ’ TO tctrl no 
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display window on the screen 



@ 


4 ,20 


SAY 




@ 


5 , 20 


SAY 


> 




@ 


6,20 


SAY 


t 




@ 


7,20 


SAY 


> 




@ 


8,20 


SAY 


f 




@ 


9,20 


SAY 


9 




@ 


10,20 


SAY 


9 




@ 


11,20 


SAY 


9 




@ 


12 ,20 


SAY 


9 




@ 


13,20 


SAY 


9 




@ 


14 ,20 


SAY 


9 




@ 


15 ,20 


SAY 


9 




@ 


16,20 


SAY 


’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 


@ 


5,26 


SAY 


’MODIFY RECORDS IN PUBS FILE’ 


@ 


15 ,26 


SAY 


’ENTER CONTROL NUMBER = > ’ GET tctrl no PICT; 



’ 99999 ’ 

READ 

check if record to be modified exist in PUBS file 
FIND &tctrl_no 
IF .NOT. EOF ( ) 



♦♦ initialize memory variables 



STORE s_title 
STORE locker 
STORE class 
STORE update 



TO ts_title 
TO tlocker 
TO tclass 
TO tupdate 



STORE sub cust TO tsub cust 



^ read user’s input 
CLEAR 



@ 


2 , 05 


TO 


14,74 DOUBLE 








@ 


4 ,25 


SAY 


’MODIFYING PUBS 


FILE’ 




@ 


5 ,25 


SAY 




« M « > 




@ 


7,20 


SAY 


’CONTROL NUMBER 


9 


GET 


tct r l_no 


@ 


8,20 


SAY 


’SHORT TILTE 


9 


GET 


ts_ti tie 


@ 


9,20 


SAY 


’LOCKER NUMBER 


9 


GET 


tlocker 


@ 


10,20 


SAY 


’CLASSIFICATION 


9 


GET 


tclass 


@ 


11 , 20 


SAY 


’LAST UPDATE 


9 


GET 


tupdate 


@ 12,20 
READ 


SAY 


’SUB-CUSTODIAN 


9 


GET 


t sub_cust 



♦♦ replace changed fields 

REPLACE s_title WITH ts_title, locker WITH tlocker 
REPLACE class WITH tclass, sub_cust WITH tsub_cust 
REPLACE update WITH tupdate 
STORE .T. TO done 



record to be modified does not exist in PUBS file 
ELSE 

SET COLOR TO W*» 
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@ 15,25 SAY 'RECORD DOES NOT EXIST IN DATABASE’ 

DO delay 
SET COLOR TO W 
END IF 

@ 15,25 SAY ’ 

@ 15,25 SAY 'MORE MODIFICATION? (Y/N)==>:’ 

SET CONSOLE OFF 
WAIT TO modicont 
SET CONSOLE ON 
CLEAR 

ENDDO 

update USERLOG file 
IF done 

SELECT 2 

LOCATE FOR password = UPPER(psw) 

SELECT 3 
APPEND BLANK 

REPLACE username WITH B->username, task WITH ’MODIFICATION’ 
REPLACE progname WITH ’MOD_PUB’, logdate WITH DATE( ) 
REPLACE logtime WITH TIME( ) 

END IF 

SET TALK ON 
CLEAR 

CLOSE DATABASES 
RETURN 

eof mod_pub.prg 



PROGRAM MOD INFO.PRG 

** This program modifies records in the PUBSINFO file and 
updates USERLOG file 

CLEAR 

SET TALK OFF 

^ open required files for processing 
SELECT 1 

USE pubsinfo INDEX ps_title 

SELECT 2 

USE userid 

SELECT 3 

USE userlog 

STORE .F. TO done 

STORE ’Y’ TO modicont 

SELECT 1 

DO WHILE UPPER(modicont ) = ’Y’ 

STORE ’ ’ TO ts_tltle 

** display a window on the screen 

@ 4,20 SAY ’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww ’ 

@ 5,20 SAY ’ : : ’ 
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@ 


6 , 20 


SAY 


@ 


7 , 20 


SAY 


@ 


8 ,20 


SAY 


@ 


9 , 20 


SAY 


@ 


10 ,20 


SAY 


@ 


11 ,20 


SAY 


@ 


12 , 20 


SAY 


@ 


13 ,20 


SAY 


@ 


14 ,20 


SAY 


@ 


15 ,20 


SAY 


@ 


16 ,20 


SAY 


@ 


5,25 


SAY 


@ 14,21 
READ 


SAY 


@ 


14 ,46 


SAY 


H 


check 


if 






\rs^fwi^n^rw\n/fw\^vrw\fwww\rw\n^rw\rw\rw\rw\rww^^ 

’ MODIFY RECORD IN PUBSINFO FILE ’ 

' ENTER SHORT TITLE =>:’ GET ts title 



FIND &ts_tltle 
IF .NOT. EOF( ) 

*♦ record exists in PUBSINFO file 



^ initialize memory variables 
STORE I_title TO tl_title 
STORE allowance TO tallowance 
STORE onboard TO tonboard 
STORE doc_type TO tdoc_type 



** read user’s data from keyboard 
CLEAR 



@ 


2 , 05 


TO 13,74 DOUBLE 








@ 


4 , 25 


SAY 


’MODIFYING PUBSINFO 


FILE’ 




@ 


5,25 


SAY 




H H H H H H H 


M N M H M • 




@ 


7 ,10 


SAY 


’SHORT TITLE 


: ’ GET 


t s_t i tie 




@ 


8,10 


SAY 


’LONG TITLE 


: ’ GET 


t l_t i t le 




@ 


9 ,10 


SAY 


’ALLOWANCE 


: ’ GET 


tallowance 




@ 


10,10 


SAY 


’ONBOARD 


: ’ GET 


tonboard 




@ 


11 ,10 


SAY 


’DOC. TYPES 


: ’ GET 


tdoc_type 




READ 












H 


replace change fields 








REPLACE 


1 title WITH tl 


title , 


allowance WITH 


tallowance 


REPLACE 


onboard WITH tonboard. 


doc_type WITH 


tdoc_type 


STORE .' 


T. TO 


done 









^ record to be modified does not exist in the PUBSINFO file 
ELSE 

SET COLOR TO 

@ 14,22 SAY ’RECORD DOES NOT EXIST IN THIS FILE 
DO delay 
SET COLOR TO W 
END IF 

@ 14,22 SAY ’ MORE MODIFICATION? (Y/N)=>: 

SET CONSOLE OFF 
WAIT TO modicont 
SET CONSOLE ON 
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CLEAR 

ENDDO 

»♦ update USERLOG file 
IF done 

SELECT 2 

LOCATE FOR password = UPPER(psw) 

SELECT 3 
APPEND BLANK 

REPLACE username WITH B->username, task WITH ’MODIFICATION’ 
REPLACE progname WITH ’MOD INFO’, logdate WITH DATEO 
REPLACE logtime WITH TIME(7 
ENDIF 

SET TALK ON 
CLEAR 

CLOSE DATABASES 
RETURN 

*♦ eof mod_info.prg 



PROGRAM DEL PUB 

This program deletes records from the PUBS and PUBSINFO files 
*♦ and also update teh USERLOG file 
CLEAR 

SET TALK OFF 

*♦ open required files for proccesslng 
SELECT 1 

USE pubs INDEX s_tltle 
SELECT 2 

USE pubsinfo INDEX ps_tltle 
SELECT 3 
USE userid 
SELECT 4 



USE userlog 




M 


display a 


window on the screen 


@ 


4,20 


SAY 


’ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww ’ 


@ 


5 ,20 


SAY 


> 




@ 


6,20 


SAY 






@ 


7 , 20 


SAY 


9 




@ 


8,20 


SAY 


9 




@ 


9,20 


SAY 


9 




@ 


10,20 


SAY 


9 




@ 


11 , 20 


SAY 


9 




@ 


12,20 


SAY 


9 




@ 


13,20 


SAY 


9 




@ 


14,20 


SAY 


9 




@ 


15 , 20 


SAY 


9 


9 


@ 


16,20 


SAY 
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STORE ’Y’ TO deletecont 
STORE 0 TO countl, counts 
STORE .F. TO done 

DO WHILE UPPER(deletecont ) = ’Y’ 

@5,22 SAY ’ 

@ 5,22 SAY ’DELETE RECORD FROM PUBS AND PUBSINFO FILE’ 
STORE ’ ’ TO ts_title 

@ 15,21 SAY ’ENTER SHORT TITLE =>:’ GET ts_tltle 
READ 

^ check if the record to be deleted is in the PUBS file 
SELECT 1 
FIND &ts_title 
IF .NOT. EOF( ) 

^ record exist in the PUBS file 
display record to be deleted 
CLEAR 



@ 

@ 


2 ,05 
4 ,20 


TO : 
SAY 


13,74 DOUBLE 

’ DELETING RECORDS FROM THE PUBS FILE ’ 


@ 


5,20 


SAY 






@ 


7,23 


SAY 


’CONTROL NUMBER 


: ’ GET 


ctr l_no 


@ 


8 , 23 


SAY 


’SHORT TITLE 


’ GET 


s_tl tie 


@ 


9,23 


SAY 


’LOCKER NUMBER 


’ GET 


locker 


@ 


10,23 


SAY 


’CLASSIFICATION 


’ GET 


class 


@ 


11 , 23 


SAY 


’LAST UPDATE 


’ GET 


update 


@ 


12 ,23 


SAY 


’ SUB-CUSTODIAN 


’ GET 


sub_cus t 



READ 

♦♦ user ensure it is the record to be deleted 
@ 15,40 SAY ’ 

@ 15,21 SAY ’CONFIRM DELETIONS (Y/N)? — >: ’ 

SET CONSOLE OFF 
WAIT TO confirm 
SET CONSOLE ON 

^ delete the record from PUBS file 
IF UPPER( confirm) = ’Y’ 

DELETE 

STORE .T. TO done 

STORE countl + 1 TO countl 

^ delete the record from PUBSINFO file 
SELECT 2 
FIND &ts_title 
IF .NOT. EOF( ) 

DELETE 

STORE count2 +1 count2 
END IF 



^ do not delete record from PUBS file 
ELSE 

STORE ’F’ TO deletecont 
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CLEAR 
END IF 



** record to be deleted does not exist in database 



ELSE 

@ 15,40 SAY 
@ 15,21 SAY 
DO delay 
@ 15,25 SAY 
ENDIF 

@ 15,21 SAY ' 
SET CONSOLE OFF 



RECORD DOES NOT EXIST IN DATABASE’ 



MORE DELETIONS? (Y/N) =>:’ 



WAIT TO deletecont 



SET CONSOLE ON 
CLEAR 
ENDDO 



pack database files for permanent deletion of files deleted 
♦* previously by the program 



SELECT 1 
IF countl # 0 

@ 12,20 SAY ’ 
@ 13,20 SAY ’ 
@ 15,20 SAY ’ 
PACK 

SELECT 2 
IF count2 # 0 
PACK 
ENDIF 
ENDIF 

CLOSE DATABASES 



DATABASE FILES ARE IN THE PROCESS OF BEING’ 
PACKED AND REINDEXED. ’ 

Please be patient. It may take a while’ 



update USERLOG 
IF done 

SELECT 3 
USE userid 

LOCATE FOR PASSWORD = UPPER(psw) 

SELECT 4 
USE userlog 
APPEND BLANK 

REPLACE username WITH C->username, task WITH ’DELETION’ 
REPLACE progname WITH ’ DEL_PUB ’ , logdate WITH DATE () 
REPLACE logtime WITH tlme( ) 

ENDIF 

SET TALK ON 
CLEAR 

CLOSE DATABASES 
RETURN 

eof del pub . prg 
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b. Report Sub-Menu 






PROGRAM RPTMENU 






“ This program displays on the screen the database report 
generator sub-menu. 



CLEAR 

PUBLIC rptcode 
STORE 0 TO rptcode 



@ 2,14 SAY ' 

@ 3,14 SAY ' 

@ 4,14 SAY ’ 

SET COLOR TO 
@ 3,20 SAY ’ 

SET COLOR TO 
@ 6,14 SAY ’ 

@ 7,14 SAY ’ 

@ 8,14 SAY 

@ 9,14 SAY 

@ 10,14 SAY 
@ 11,14 SAY 
@ 12,14 SAY 
@ 13,14 SAY 
@ 14,14 SAY 
@ 15,14 SAY 
@ 16,14 SAY 
@ 17,14 SAY 
SET COLOR TO 
@ 16,16 SAY 
READ 

SET COLOR TO 
RETURN 



w\^rwv^v^^v^^wv^wwwwv^^^w■wwwwwwwwwwwwwvwwwv^^r^^^^^^w^^^w^^^ 
mm mm ’ 

\rw-w^/rw^\lrwwvrwww\^ww^^w\rw\m\m\rw\rw^/rw^^^ ’ 

DATABASE REPORT GENERATOR MENU’ 

¥ 

ww\^^w^^^v^^wwwwwwww\^^v^^wwwwwwwwwwwwv^v^^v^^w^^^v^v^^^^rv^^^^ 



1. ALLOWANCE LISTING OF 

2. ALPHABETICAL LISTING 

3. LIST OF PUBLICATIONS 

4. LIST OF PUBLICATIONS 

5. LIST OF DESTRUCTION 

6. EXIT TO MAIN MENU 



PUBLICATIONS 
OF PUBLICATIONS 
BY LOCATIONS 
BY SUB-CUSTODIAN 
RECORDS 



wvvi^rwwwwwwww\Nrvrwwwwwwwwwwwwwwwwwwvrwvwvvwwvmww 
W+ 

ENTER CHOICE =>:’ GET rptcode PICT ’9’ RANGE 1 
W 



♦♦ eof rptmenu.prg 



PROGRAM REPORT 

CLEAR 

STORE ’ ’TO rptcont 
PUBLIC rptcode 
DO WHILE rptcont # ’n’ 

DO rptmenu 
DO CASE 

CASE rptcode = 1 
DO list_l 
CASE rptcode = 2 
DO list_2 
CASE rptcode = 3 
DO list 3 
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4 



CASE rptcode - 
DO list_4 
CASE rptcode = 5 
DO list_5 
CASE rptcode = 6 

STORE ’n’ TO rptcont 

ENDCASE 

ENDDO 

RETURN 

♦♦ eof report. prg 



( 1 ) LISTING/REPORT PROGRAMS 



H H H H M H H H H H H H H H M H H H H PROGRAM LIST 1 ♦♦ H H H M H H H H M H H H M M H M M H H H M H H 



** This program provides screen display or printer output of the 
♦♦ total number of publications that are on the allowance list 
against what is onboard by document type. 



CLEAR 

SET TALK OFF 

STORE .F. TO printer 

STORE ’ ’ TO done 

STORE ’ ’ TO ans 

USE pubsinfo INDEX doc_type 

DO WHILE UPPER(done) # ’N’ 

@ 3,10 TO 9,65 DOUBLE 

@ 4,20 SAY ’ DO YOU WANT TO PRINT OUTPUT ? ' 

@ 5,20 SAY ’ PRINTER = P 

@ 6,20 SAY ’ SCREEN = S 

@ 8,25 SAY ’ ENTER S OR P =>:’ GET ans 

READ 

IF UPPER(ans) = ’P’ 

STORE .T. TO printer 
CLEAR 

@ 15,20 SAY ’TURN YOUR PRINTER ON’ 

WAIT TO cont 
END IF 



STORE ’ 
CLEAR 
@ 7,10 

@ 9,21 

@ 11,21 
@ 12,21 
@ 13,21 
@ 15,25 
READ 



’ TO choice 
TO 16,65 DOUBLE 

SAY ’ SELECT THE DOCUMENT TYPE 

SAY ’ Secret = S 

SAY ’ Intelligence - I 

SAY ’ NTP/ATP Pubs = P 

SAY ’ENTER CHOICE ==>:’ GET choice 
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IF printer 
DO CASE 

CASE UPPER( choice ) = ’S’ 

SET PRINTER ON 

REPORT FORM listl FOR doc_type = 
SET PRINTER OFF 
CASE UPPER( choice ) = ’I’ 

SET PRINTER ON 

REPORT FORM listl FOR doc_type = 
SET PRINTER OFF 
CASE UPPER(choice ) = ’P’ 

SET PRINTER ON 

REPORT FORM listl FOR doc_type = 
SET PRINTER OFF 

ENDCASE 

ELSE 

DO CASE 

CASE UPPER( choice ) = ’S’ 

REPORT FORM listl FOR doc_type ^ 
? 

WAIT TO cont 
CASE UPPER(choice ) = ’I’ 

REPORT FORM listl FOR doc_type 
? 

WAIT TO cont 
CASE UPPER( choice ) = ’P’ 

REPORT FORM listl FOR doc_type 
? 

WAIT TO cont 

ENDCASE 
END IF 
GO TOP 
CLEAR 

STORE ’ ’ TO all_done 

@ 15,20 SAY ’ DO YOU WANT TO SEE OR PRINT ’ 

@ 16,20 SAY ’ THE LIST AGAIN ? 

@ 18,20 SAY ’ ENTER "Y" OR "N" =>:’ GET all 

READ 

IF UPPER(all_done ) # ’Y’ 

STORE ’N’ TO done 
END IF 
ENDDO 

CLEAR 

CLOSE DATABASES 
RETURN 

*♦ eof list_l.prg 



"SECRET" 



"INTEL" 



"NWP" 



"SECRET 



"INTEL" 



"NWP " 



done 



H H *♦ H H H H H H »♦ H »♦ H H H H H H H PROGRAM LIST 2 *♦ H H « H H H H H H H H »♦ H H H H H H H 



This program provides display or printer output of the 
** publications in an alphabetical order. Short title and 
^ long title 

CLEAR 

SET TALK OFF 

STORE .F. TO printer 

STORE ' ' TO done 

STORE ’ ’ TO ans 

USE pubsinfo INDEX ps_title 

DO WHILE UPPER(done) # ’N’ 

@ 3,10 TO 9,65 DOUBLE 

@ 4,20 SAY ' DO YOU WANT TO PRINT OUTPUT ? ’ 

@ 5,20 SAY ’ PRINTER = P 

@ 6,20 SAY ’ SCREEN = S 

@ 8,25 SAY ' ENTER S OR P =>:' GET ans 

READ 

IF UPPER(ans ) = ’P’ 

STORE .T. TO printer 
CLEAR 

@ 15,20 SAY ’TURN YOUR PRINTER ON’ 

WAIT TO cont 
END IF 
IF printer 

SET PRINTER ON 
REPORT FORM list2 
SET PRINTER OFF 
ELSE 

CLEAR 

REPORT FORM list2 
WAIT TO cont 
END IF 
GO TOP 
CLEAR 

STORE ’ ’ TO all_done 

@ 15,20 SAY ’ DO YOU WANT TO SEE OR PRINT ’ 

@ 16,20 SAY ’ THE LIST AGAIN ’ 

@ 18,20 SAY ’ ENTER "Y" OR "N" =>:’ GET all_done 

READ 

IF UPPER(all_done) if ’Y’ 

STORE ’N’ TO done 
END IF 
ENDDO 
CLEAR 

CLOSE DATABASES 
RETURN 

* eof llst_2.prg 



M M M M M M M M M M M M H M M M M M M M PROGRAM LIST 3 M H M H H « H M H M H H M K H H H M 

CLEAR ” 
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SET TALK OFF 

STORE .F. TO printer 

STORE ’ ’ TO done 

STORE ’ ’ TO ans 

USE pubs INDEX locker 

DO WHILE UPPER(done) # ’N’ 

@ 3,10 TO 9,65 DOUBLE 

@ 4,20 SAY ’ DO YOU WANT TO PRINT OUTPUT ? ’ 

@ 5,20 SAY ’ PRINTER = P 

@ 6,20 SAY ’ SCREEN = S 

@ 8,25 SAY ’ ENTER S OR P = > : ’ GET ans 

READ 

IF UPPER(ans) = ’P’ 

STORE .T. TO printer 
CLEAR 

@ 15,20 SAY ’ TURN YOUR PRINTER ON ’ 

WAIT TO cont 
END IF 
IF printer 

SET PRINTER ON 
REPORT FORM lists 
SET PRINTER OFF 
ELSE 

CLEAR 

REPORT FORM list3 
WAIT TO cont 
END IF 
GO TOP 
CLEAR 

STORE ’ ’ TO all_done 

@ 15,20 SAY ’ DO YOU WANT TO SEE OR PRINT ’ 

@ 16,20 SAY ’ THE LIST AGAIN ’ 

@ 18,20 SAY ’ ENTER "Y" OR "N" GET all_done 

READ 

IF UPPER( all_done ) # ’Y’ 

STORE ’N’ TO done 
ENDIF 
ENDDO 
CLEAR 

CLOSE DATABASES 
RETURN 

eof list_3.prg 



H « M M H H H H M M M H PROGRAM LIST 4 H « M M M M H *♦ tt M H H H M 
This program provides display or printed output of the 
publications by classification 

CLEAR 

SET TALK OFF 
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STORE .F. TO printer 
STORE ’ ’ TO done 

STORE ’ ’ TO ans 

USE pubs INDEX class 
DO WHILE UPPER(done) # ’N’ 

CLEAR 

@ 3,10 TO 9,65 DOUBLE 

@ 4,20 SAY ’ DO YOU WANT TO PRINT OUTPUT ? ' 

@ 5,20 SAY ’ PRINTER = P 

@ 6,20 SAY ’ SCREEN = S 

@ 8,25 SAY ’ ENTER S OR P = > : ’ GET ans 

READ 

IF UPPER(ans) = ’P’ 

STORE .T. TO printer 
CLEAR 

@ 15,20 SAY ’ TURN YOUR PRINTER ON ’ 

WAIT TO cont 
END IF 
IF printer 

SET PRINT ON 
REPORT FORM llst4 
SET PRINTER OFF 
ELSE 

CLEAR 

REPORT FORM list4 
WAIT TO cont 
ENDIF 
GO TOP 
CLEAR 

STORE ’ ’ TO all_done 

@ 15,20 SAY ’ DO YOU WANT TO SEE OR PRINT ’ 

@ 16,20 SAY ’ THE LIST AGAIN ' 

@ 18,20 SAY ’ ENTER "Y" OR "N" =>:’ GET all_done 

READ 

IF UPPER(all_done ) # ’Y’ 

STORE ’N’ TO done 
ENDIF 
ENDDO 
CLEAR 

CLOSE DATABASES 
RETURN 

eof llst_4.prg 



PROGRAM LIST 5 

♦♦ This program provides display or printer output of the 
♦♦ destruction record file 

CLEAR 

SET TALK OFF 

STORE .F. TO printer 
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STORE ’ ' TO done 
STORE ’ ’ TO ans 
USE destruct INDEX date 
DO WHILE UPPER(done) # ’N' 

CLEAR 

@ 3,10 TO 9,65 DOUBLE 

@ 4,20 SAY ' DO YOU WANT TO PRINT OUTPUT ? 

@ 5,20 SAY ’ PRINTER = P 

@ 6,20 SAY ’ SCREEN = S 

@ 8,25 SAY ’ ENTER S OR P =>:’ GET ans 

READ 

IF UPPER(ans) = ’P’ 

STORE .T. TO printer 
CLEAR 

@ 15,20 SAY ’ TURN YOUR PRINTER ON ’ 

WAIT TO cont 
END IF 
IF printer 

SET PRINT ON 
REPORT FORM list5 
SET PRINTER OFF 
ELSE 

CLEAR 

REPORT FORM list5 
WAIT TO cont 
END IF 
GO TOP 
CLEAR 

STORE ’ ’ TO all_done 

@ 15,20 SAY ' DO YOU WANT TO SEE OR PRINT ’ 

@ 16,20 SAY ’ THE LIST AGAIN ' 

@ 18,20 SAY ’ ENTER "Y" OR "N" =>:’ GET all 

READ 

IF UPPER( all_done ) # 'Y' 

STORE ’N’ TO done 
END IF 
ENDDO 
CLEAR 

CLOSE DATABASES 
RETURN 

** eof list_5.prg 



done 
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c. Adhoc Sub-Menu 



program HOCMENU 

♦♦ This program display on the screen the adhoc sub-menu 



CLEAR 

SET TALK OFF 
PUBLIC adhocode 
STORE 0 TO adhocode 

@ 5,18 SAY * \rw^/^w^^wwwwww\fwwwwww\fwwwwwww^frw^frw^f^w^frw\rwwv^w^^rw^/^^^ 

@ 6,18 SAY ’ : : ’ 

@ 7,18 SAY ’ wwwwwwwwwwwwwv^wwvrv^^v^rwl^^wwwv^wwv^w^^^v^w'\^^wvv^tfvwwww^ 

SET COLOR TO W*» 

@ 6,30 SAY ’ DATABSE ADHOC MENU ’ 

SET COLOR TO W 

@ 8,18 SAY ’mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 

@ 9,18 SAY ’ : 

@ 10,18 SAY ’ : 1 

@ 11,18 SAY ’ ; 2 
@ 12,18 SAY ’ : 3 
@ 13,18 SAY ’ ; 4 
@ 14,18 SAY ’ : 5 

@ 15,18 SAY ' ; 6 
@ 16,18 SAY ’ : 

@ 17,18 SAY ’ : 

@ 18,18 SAY ’ : 

@ 19,18 SAY ’ wvwwwwwwwwwwwwvrwT\Tw\\ri^rwvrwwwwwww\(rvrwvwwwwvvrwvwwwvw 
SET COLOR TO W+ 

@ 17,30 SAY ’ENTER CHOICE => 

READ 

SET COLOR TO W 
CLEAR 

SET TALK ON 
RETURN 

eof hocmenu.prg 



LOCATION OF SPECIFIC PUBLICATION 
SUB-CUSTODIAN OF A PUBLICATION 
ALLOWANCE OF SPECIFIC PUBLICATION 
CLASSIFICATION OF SPECIFIC PUBLICATION 
LAST UPDATE OF CERTAIN PUBLICATION 
EXIT TO MAIN MENU 



GET adhocode PICT ’9’ RANGE 1,7 



H M H H H H H M H H H H H H M M M H H PROGRAM ADHOC H H H H H H H H H H H H H H H H H H H H M H W H H 
♦♦ This program call the proper adhoc program selected from the 
*♦ adhoc sub-menu by users 

CLEAR 

STORE ’ ’ TO adhcont 

PUBLIC adhocode 
DO WHILE adhcont # ’n’ 

DO hocmenu 
DO CASE 

CASE adhocode = 1 
DO adhoc_l 
CASE adhocode = 2 
DO adhoc 2 
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CASE adhocode = 3 
DO adhoc_3 
CASE adhocode = 4 
DO adhoc_4 
CASE adhocode = 5 
DO adhoc_5 
CASE adhocode = 6 

STORE ’n’ TO adhcont 

ENDCASE 

ENDDO 

RETURN 

♦♦ eof adhoc.prg 
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( 1 ) ADHOC PROGRAMS 



PROGRAM ADHOC 1 

*♦ To accept a specified publication and provide their locker 
♦♦ location 



CLEAR 

SET TALK OFF 
@ 4,10 TO 13,69 DOUBLE 



@ 6,18 SAY 

@ 7,18 SAY 

@ 8,18 SAY 

@ 9,18 SAY 

@ 10,18 SAY 
@ 11,18 SAY 
? 

? 

WAIT TO cont 
CLEAR 



’ The purpose of this adhoc function # 1 is’ 
’to locate a specific publication for the user. 
’The user must provide the exact short title ’ 
’of the publication as previously enter in the’ 
’database. Otherwise the search will be un- ’ 
’successful and frustrating. ’ 



open required files for processing 
SELECT 1 

USE pubs INDEX s_tltle 
SELECT 2 
USE userid 
SELECT 3 
USE userlog 
STORE .F. TO done 
STORE ’Y’ TO adhocl 
SELECT 1 

DO WHILE UPPER( adhocl ) =’Y’ 

ACCEPT ’ENTER SHORT TITLE : ’ TO s_tltle 

FIND &s_tltle 
IF .NOT. EOF ( ) 

CLEAR 

@7,05 SAY ’ SHORT TITLE ’ 

@7,30 SAY ’ LOCKER # ’ 

DISPLAY s_title, locker 
DO delay 
ELSE 

SET COLOR TO W»* 

@ 15,25 SAY ’ NO SUCH SHORT TITLE ’ 

DO delay 
SET COLOR TO W 
END IF 

@ 15,25 SAY ’ MORE INQUIRY? (Y/N)==>;’ GET adhocl 
READ 

SET CONSOLE OFF 
WAIT TO achocl 
SET CONSOLE ON 
CLEAR 
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ENDDO 

CLEAR 

SET TALK ON 
RETURN 

** eof adhoc_l.prg 



H H ♦« H M H M H H M H H H M H M H H H PROGRAM ADHOC 2.PRG H H M »♦ M »♦ M H M H H M H M H H 
** This program accepts short title of a specific publication 
♦♦ and provide the user the name of the current sub-custodian 



CLEAR 

SET TALK OFF 
@ 4 , 10 TO 13 

@ 6,18 SAY 

@ 7,18 SAY 

@ 8,18 SAY 

@ 9,18 SAY 

@ 10,18 SAY 
@ 11,18 SAY 



69 DOUBLE 

’The purpose of this ADHOC function # 2 is to’ 
’locate the current sub-custodian of a specific’ 
’publication. The user must provide the exact ’ 
’short title of the publication as previously’ 
’enter in this database. Otherwise the search’ 
’will be unsuccesful and frustrating.’ 



WAIT TO 
CLEAR 



cont 



STORE .F. TO done 

STORE ’Y’ TO adhoc2 

DO WHILE UPPER( adhoc2 ) = ’Y’ 

ACCEPT ’ENTER SHORT TITLE; ’ TO s_title 
USE pubs INDEX s_title 
FIND &s_title 
IF .NOT. EOF ( ) 

DISPLAY s_tltle, sub_cust 
DO delay 
ELSE 

SET COLOR TO W»* 

@ 15,25 SAY ’ NO SUCH SHORT TITLE ’ 

DO delay 
SET COLOR TO W 
END IF 

@ 15,25 SAY ’ MORE INQUIRY? (Y/N) — >:’ GET adhoc2 
READ 

SET CONSOLE OFF 
WAIT TO adhoc2 
SET CONSOLE ON 
CLEAR 
ENDDO 
CLEAR 

SET TALK ON 
RETURN 
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M 



eof adhoc_2.prg 



MHHHHHHKHHHMMHttHHHH PROGRAM ADHOC 3 ♦‘HHHMKXHMHHMMHHHHHMMMHH 
^ This program accepts short title of a specific publication 
** and provide the user the current allowance and current 
^ onboard Inventory. 

CLEAR 

SET TALK OFF 
TEXT 

The purpose of this ADHOC function # 3 is to provide 
current allowance vs current inventory of a specified 
publication. The user must enter the exact short 
title of the publication. 

ENDTEXT 
WAIT TO cont 
CLEAR 

STORE .F. TO done 

STORE ’Y’ TO adhoc 

DO WHILE UPPER( adhoc) = ’Y’ 

ACCEPT ’ ENTER SHORT TITLE: ’ TO s_title 

USE pubsinfo INDEX s_title 
FIND &s_title 
IF .NOT. EOF ( ) 

DISPLAY s_title, allowance, onboard 
DO delay 
ELSE 

SET COLOR TO W*» 

@ 15,25 SAY ’ NO SUCH SHORT TITLE ’ 

DO delaY 
SET COLOR TO W 
END IF 

@ 15,25 SAY ’ MORE INQUIRY? (Y/N) ==>:’ GET adhoc 
READ 

SET CONSOLE OFF 
WAIT TO adhoc 
SET CONSOLE ON 
CLEAR 
ENDDO 
CLEAR 

SET TALK ON 
RETURN 

*♦ eof adhoc_3.prg 



PROGRAM ADHOC 4 • PRG 

*♦ This program accepts short title of a specific publication 
^ and provide the user the classification category in return 
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CLEAR 

SET TALK OFF 
TEXT 

The purpose of this ADHOC function # 4 is to give the 
classification category of a specific publication. The 
user must provide the exact short title of the publication 
as previously enter in this database. Otherwise the search 
will be unsuccessful. 

ENDTEXT 
WAIT TO cont 
CLEAR 

STORE . T . TO done 

STORE ’Y’ TO adhoc 

DO WHILE UPPER( adhoc) = ’Y’ 

ACCEPT ’ENTER SHORT TITLE: ’ TO s_title 

USE pubs INDEX s_title 
FIND &s_title 
IF .NOT. EOF ( ) 

DISPLAY s_title, class 
DO delay 
ELSE 

SET COLOR TO W*» 

@ 15,25 SAY ’ NO SUCH SHORT TITLE ’ 

DO delay 
SET COLOR TO W 
ENDIF 

@ 15,25 SAY ’ MORE INQUIRY? (Y/N)^ — > : ’ GET adhoc 

READ 

SET CONSOLE OFF 
WAIT TO adhoc 
SET CONSOLE ON 
CLEAR 
ENDDO 
CLEAR 

SET TALK ON 
RETURN 

eof adhoc_4.prg 



PROGRAM ADHOC 5 

This program accepts short title of a specific publication 
** and provide the last update made on this publication 

CLEAR 

SET TALK OFF 
TEXT 

The purpose of this ADHOC function # 5 is to provide the 
date of last update made on the specified publication. 
The user must enter the exact short title of the publi- 
cation as previously enter in this database. Otherwise, 
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the search will he unsuccessful. 

ENDTEXT 
WAIT TO cent 
CLEAR 

STORE .F. TO done 

STORE ’Y’ TO adhoc 

DO WHILE UPPER( adhoc) = ’Y’ 

ACCEPT ’ ENTER SHORT TITLE: ’ TO s_title 

USE pubs INDEX s_tltle 
FIND &s_title 
IF .NOT. EOF( ) 

DISPLAY s_tltle, update 
DO delay 
ELSE 

SET COLOR TO W*» 

@ 15,25 SAY ’NO SUCH SHORT TITLE’ 

DO delay 
SET COLOR TO W 
END IF 

@ 15,25 SAY ’ MORE INQUIRY? (Y/N)==>:’ GET 
READ 

SET CONSOLE OFF 
WAIT TO adhoc 
SET CONSOLE ON 
CLEAR 
ENDDO 
CLEAR 

SET TALK ON 
RETURN 

*♦ eof adhoc_5.prg 



adhoc 
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d. Help Sub-Menu 



PROGRAM HPMENU 

This program display on the screen the help sub-menu 
♦♦ called by DBHELP.PRG 



CLEAR 

SET TALK OFF 
PUBLIC HELPCODE 
STORE 0 TO HELPCODE 

@ 6,20 SAY ’ wwwwwwwwwwwwwwwwwwwwww\^rwww\^^w■^^^^^w^^^v^w^^^v^^vrva^^v^^w^^^v^^ 

@ 7,20 SAY ’ : ; 

@ 8,20 SAY ’ w^^\^w\mwwv\^w^^vw^^vvwwwwwwwww^^^v^w\rw\^w\^ww\rw^/^w\^w\^WM 

SET COLOR TO 

@ 7,30 SAY ’ DATABASE HELP MENU ’ 

SET COLOR TO W 



@ 


9,20 


SAY 


’ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmnunmmmmmm 


@ 


10 ,20 


SAY 


f 






@ 


11,20 


SAY 


9 


1 . 


UPDATE HELP : 


@ 


12,20 


SAY 


9 


2 . 


REPORT HELP : 


@ 


13,20 


SAY 


9 


3. 


ADHOC HELP : 


@ 


14 ,20 


SAY 


9 


4 . 


EXIT TO MAIN MENU : 


@ 


15 ,20 


SAY 


9 






@ 


16,20 


SAY 


9 






@ 


17,20 


SAY 


9 






@ 


18 ,20 


SAY 


’ wwwv^wv^wwwwwwwwwwwwwwwww^^^w■^^^^rv^^^^^wv^wwwvrw^^^wvwwwwv^w' 



SET COLOR TO W+ 

@ 17,30 SAY ’ENTER CHIOCE =>:’ GET helpcode PICT ’9’ RANGE 1,4 
READ 

SET COLOR TO W 
SET TALK ON 
CLEAR 
RETURN 



*♦ eof hpmenu.prg 



M H M M M M ♦♦ M M M H M H M H *♦ H PROGRAM DBHELP ♦♦«*♦«*♦*♦*♦*♦»»♦♦***♦***♦«*♦*»*♦*♦ 

*♦ Provide an online help reference. 

*♦ called by: mmenu.prg 

CLEAR 

SET TALK OFF 



@ 2,00 TO 11,79 DOUBLE 



@ 


4 ,20 


SAY ’ 


HH 


HH 


EEEEEEE 


LL 


PPPPPP 


@ 


5 ,20 


SAY ’ 


HH 


HH 


EE 


LL 


PP PP 


@ 


6 ,20 


SAY ’ 


HHHHHHH 


EEEEEE 


LL 


PpPPPP 


@ 


7,20 


SAY ’ 


HH 


HH 


EE 


LL 


PR 
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@ 8,20 SAY ’ HH HH EEEEEEE LLLLLLLL PP 

@ 920 SAY ’ HHMHHHMHHMMHMHMHHMHHXMHHMHMHHHHHHH * 

? 

? 

DO delay 
TEXT 

The security manager inventory program will provide 
information of command’s classified publications. To 
see specific information and guidance on each type of 
query, type the appropriate choice or task code number. 
The following information pertains to many of the reports 
and summaries: 



Attribute type 

CTRL_N0 N 

S_TITLE C 

L_TITLE C 

LOCKER N 

CLASS C 

UPDATE D 

SUB_CUST C 

ALLOWANCE N 

ONBOARD N 

DOC TYPE C 



# chars. Example 
4 192 

17 NTP 4(G) 

25 NAVAL COMMUNICATIONS PROC 

1 3 

6 UNCLAS, CONE, SECRET 
05/20/86 

10 P02 SMITH, SCPO JONES 

1 3 

1 3 

7 NTP/ATP, INTEL, SECRET 



ENDTEXT 

9 



WAIT TO cont 
STORE ’ ’ TO helpcont 

PUBLIC helpcode 
DO WHILE helpcont # ’n’ 
DO hpmenu 
DO CASE 

CASE helpcode = 1 
DO help_l 
CASE helpcode = 2 
DO help_2 
CASE helpcode = 3 
DO help_3 
CASE helpcode = 4 



ENDCASE 
ENDDO 
CLEAR 
RETURN 



STORE ’n’ TO helpcont 



»♦ eof dbhelp.prg 
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( 1 ) HELP PROGRAIVIS 



H « H H »♦ M H »♦ « H « X M H H H H PROGRAM HELP 1 >♦♦< H « M H H H »♦ H »♦«»♦« M M H M M ♦♦ H M H M 
♦♦ This program will provide an on-line help note for user 
** with regards to updating the database. 

CLEAR 

SET TALK OFF 
TEXT 



The "Update Database Menu" is divided into 6 edit choices. 
Option 1 will allow the user to enter the new publication 
into the PUBS. INFO file. You must provide the exact infor- 
mation to the database. Failure to do so will affect the 
effectiveness of the this system. The rest of the options 
in this menu will be very similar to option 1 and will be 
simple if you just follow the instruction provided in the 
program. Wait for the prompt and enter the data with care. 



ENDTEXT 

WAIT TO cont 
CLEAR 

SET TALK OFF 
RETURN 

^ eof help_l.prg 



HHHiiUHHHHHHHHHHHHHH PJ^Q GRAM HELP 2 

This program will provide on-line help note with regards 
^ to the Report generator menu 

CLEAR 

SET TALK OFF 
TEXT 



The "Report Generator Menu" provide five listing for the 
the user of this system. The first listing is the "Report 
listing of publication sorted by document type and total 
by allowance vs onboard. The second listing is the "Alpha- 
betical Listing of all Publication". The third listing is 
the "Listing of of Publication Sorted by Locker Number". 
The fourth listing is the list of "Publication Sorted by 
Classification Types". Finally the "Destruction Record 
Sorted by Date". All these listings are formated into a 
report format (l.e., LIST_1.FRM) which could be modified 
easily with the assist query of the dBASE III. 
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ENDTEXT 



WAIT TO cont 

CLEAR 

RETURN 

*♦ eof help_2.prg 



H « H « H H H H H H H H M H H H H PROGRAM HELP 3 H It H M H H H H H H H H H H H H H H H H H H H H 
*♦ This program will provide an on-line help note with regards 
to database adhoc menu. 

CLEAR 

SET TALK OFF 
TEXT 



The "Database adhoc menu" is divided into 5 adhoc queries. 
After making the selection the user will prompt to answer 
question ask by the system. The adhoc programs were prov- 
ided to the users as sample queries that could valuable to 
the user. 



ENDTEXT 

WAIT TO cont 

CLEAR 

RETURN 

*♦ eof help_3.prg 



75 



B. MISCELLANEOUS PROGRAMS 



program flag ♦♦♦♦HHHHHHHHHHMHHHHHHHHHHHHH 

** This program displays the U.S. flag for the main program 
CLEAR 



@ 


1,10 


SAY 


f 










@ 


2 ,10 


SAY 


> H H H 


H 


H 


H 


♦ 


@ 


3 ,10 


SAY 


* H H 


H 


H 


H 


9 


@ 


4 ,10 


SAY 


* H M H 


H 


H 


H 


9 


@ 


5 ,10 


SAY 


* H H 


H 


H 


H 


9 


@ 


6 , 10 


SAY 


* H H H 


H 


H 


H 


9 


@ 


7,10 


SAY 


* H H 


H 


H 




f 


@ 


8,10 


SAY 


» H H H 


H 


H 


H 


9 


@ 


9 ,10 


SAY 


» H H 


H 


H 


H 


» 


@ 


10,10 


SAY 


* H H H 


H 


H 


H 


9 


@ 


16 ,10 


SAY 


9 










SET COLOR TO 


1 V+ 










STORE ’ 












’ TO blankl 


STORE ’ 








9 


TO 


blank2 


@ 


3 , 28 


GET 


b lankl 










@ 


5 , 28 


GET 


blankl 










@ 


7 , 28 


GET 


blankl 










@ 


9,28 


GET 


blankl 










@ 


11 ,10 


GET 


blank2 










@ 


13 ,10 


GET 


blank2 










@ 


15 ,10 


GET 


blank2 










@ 


11,28 


GET 


blankl 










@ 


13,28 


GET 


blankl 










@ 


15,28 


GET 


blankl 











SET COLOR TO W 

@ 20,18 SAY ' UNITED STATES NAVY SHIP ’ 
RETURN 

*♦ eof flag.prg 



PROGRAM HEADING 

^ This program displays on the screen the program information 
** headings 

SET COLOR TO W+ 

CLEAR 

@ 2,00 TO 18,79 DOUBLE 
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@ 


3,20 


SAY 


@ 


4,20 


SAY 


@ 


5 ,20 


SAY 


@ 


6 ,15 


SAY 


@ 


7 ,13 


SAY 


@ 


8,13 


SAY 


@ 


10,13 


SAY 


@ 


11 ,13 


SAY 


@ 


12 ,13 


SAY 


@ 


13 , 13 


SAY 


@ 


14 , 13 


SAY 


@ 


15 , 13 


SAY 


@ 


16,13 


SAY 



SECURITY MANAGER DATABASE SYSTEM ’ 

The Security Manager Inventory System is’ 
an application program design to support the’ 
following activities:’ 

1. Provide publications listings by control,’ 
number short title, location, last update,’ 
classification and alphabetic listing.’ 

2. Provide Information on specific publication 

3. Provide total no. of publications by locker 

4. Provide destruction records of publications 

5. Answer Ad Hoc queries by the user. ’ 



? 

? 

WAIT TO continue 
CLEAR 

SET COLOR TO W 
RETURN 



*♦ eof headings. prg 



PROGRAM DELAY 

This program provides a small delay necessary for displaying 
*♦ various program messages on the screen. 

STORE 0 TO k 

DO WHILE k < 100 

STORE k + 1 TO k 
ENDDO 

RETURN 

^ eof delay. prg 
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